home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / dev / gg / ncurses-5.3.lha / ncurses-5.3 / Ada95 / gen / gen.c next >
C/C++ Source or Header  |  2002-10-24  |  37KB  |  1,438 lines
  1. /****************************************************************************
  2.  * Copyright (c) 1998,2000 Free Software Foundation, Inc.                   *
  3.  *                                                                          *
  4.  * Permission is hereby granted, free of charge, to any person obtaining a  *
  5.  * copy of this software and associated documentation files (the            *
  6.  * "Software"), to deal in the Software without restriction, including      *
  7.  * without limitation the rights to use, copy, modify, merge, publish,      *
  8.  * distribute, distribute with modifications, sublicense, and/or sell       *
  9.  * copies of the Software, and to permit persons to whom the Software is    *
  10.  * furnished to do so, subject to the following conditions:                 *
  11.  *                                                                          *
  12.  * The above copyright notice and this permission notice shall be included  *
  13.  * in all copies or substantial portions of the Software.                   *
  14.  *                                                                          *
  15.  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  *
  16.  * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               *
  17.  * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   *
  18.  * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   *
  19.  * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    *
  20.  * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    *
  21.  * THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               *
  22.  *                                                                          *
  23.  * Except as contained in this notice, the name(s) of the above copyright   *
  24.  * holders shall not be used in advertising or otherwise to promote the     *
  25.  * sale, use or other dealings in this Software without prior written       *
  26.  * authorization.                                                           *
  27.  ****************************************************************************/
  28.  
  29. /****************************************************************************
  30.  *   Author:  Juergen Pfeifer, 1996                                         *
  31.  *   Contact: http://www.familiepfeifer.de/Contact.aspx?Lang=en             *
  32.  ****************************************************************************/
  33.  
  34. /*
  35.     Version Control
  36.     $Revision: 1.35 $
  37.   --------------------------------------------------------------------------*/
  38. /*
  39.   This program generates various record structures and constants from the
  40.   ncurses header file for the Ada95 packages. Essentially it produces
  41.   Ada95 source on stdout, which is then merged using m4 into a template
  42.   to produce the real source.
  43.   */
  44.  
  45. #include <stdlib.h>
  46. #include <stddef.h>
  47. #include <string.h>
  48. #include <assert.h>
  49. #include <ctype.h>
  50.  
  51. #include <menu.h>
  52. #include <form.h>
  53.  
  54. #define RES_NAME "Reserved"
  55.  
  56. static const char *model = "";
  57. static int little_endian = 0;
  58.  
  59. typedef struct {
  60.   const char *name;
  61.   unsigned long attr;
  62. } name_attribute_pair;
  63.  
  64. static int find_pos (char *s, unsigned len, int *low, int *high)
  65. {
  66.   unsigned int i,j;
  67.   int l = 0;
  68.  
  69.   *high = -1;
  70.   *low  = 8*len;
  71.  
  72.   for(i=0; i < len; i++,s++)
  73.     {
  74.       if (*s)
  75.     {
  76.       for(j=0;j<8*sizeof(char);j++)
  77.         {
  78.           if ((( little_endian && ((*s)&0x01)) ||
  79.            (!little_endian && ((*s)&0x80))) )
  80.         {
  81.           if (l > *high)
  82.             *high = l;
  83.           if (l < *low)
  84.             *low = l;
  85.         }
  86.           l++;
  87.           if (little_endian)
  88.         *s >>= 1;
  89.           else
  90.         *s <<= 1;
  91.         }
  92.     }
  93.       else
  94.     l += 8;
  95.     }
  96.   return (*high >= 0 && (*low <= *high)) ? *low : -1;
  97. }
  98.  
  99. /*
  100.  * This helper routine generates a representation clause for a
  101.  * record type defined in the binding.
  102.  * We are only dealing with record types which are of 32 or 16
  103.  * bit size, i.e. they fit into an (u)int or a (u)short.
  104.  */
  105. static void
  106. gen_reps
  107. (const name_attribute_pair *nap, /* array of name_attribute_pair records */
  108.  const char *name,               /* name of the represented record type  */
  109.  int len,                        /* size of the record in bytes          */
  110.  int bias)
  111. {
  112.   int i,n,l,cnt = 0,low,high;
  113.   int width = strlen(RES_NAME) + 3;
  114.   unsigned long a;
  115.   unsigned long mask = 0;
  116.  
  117.   assert (nap!=NULL);
  118.  
  119.   for (i=0; nap[i].name != (char *)0; i++)
  120.     {
  121.       cnt++;
  122.       l = strlen(nap[i].name);
  123.       if (l>width)
  124.     width = l;
  125.     }
  126.   assert (width > 0);
  127.  
  128.   printf("   type %s is\n",name);
  129.   printf("      record\n");
  130.   for (i=0; nap[i].name != (char *)0; i++)
  131.     {
  132.       printf("         %-*s : Boolean;\n",width,nap[i].name);
  133.     }
  134.   printf("      end record;\n");
  135.   printf("   pragma Pack (%s);\n",name);
  136.   printf("   pragma Convention (C, %s);\n\n",name);
  137.  
  138.   printf("   for %s use\n",name);
  139.   printf("      record\n");
  140.  
  141.   for (i=0; nap[i].name != (char *)0; i++)
  142.     {
  143.       a = nap[i].attr;
  144.       mask |= a;
  145.       l = find_pos( (char *)&a,sizeof(a),&low,&high );
  146.       if (l>=0)
  147.     printf("         %-*s at 0 range %2d .. %2d;\n",width,nap[i].name,
  148.            low-bias,high-bias);
  149.     }
  150.   i = 1; n = cnt;
  151.   printf("      end record;\n");
  152.   printf("   for %s'Size use %d;\n", name, 8*len);
  153.   printf("   --  Please note: this rep. clause is generated and may be\n");
  154.   printf("   --               different on your system.");
  155. }
  156.  
  157.  
  158. static void chtype_rep (const char *name, attr_t mask)
  159. {
  160.   attr_t x = -1;
  161.   attr_t t = x & mask;
  162.   int low, high;
  163.   int l = find_pos ((char *)&t, sizeof(t), &low, &high);
  164.   if (l>=0)
  165.     printf("         %-5s at 0 range %2d .. %2d;\n",name,low,high);
  166. }
  167.  
  168. static void gen_chtype_rep(const char *name)
  169. {
  170.   printf("   for %s use\n      record\n",name);
  171.   chtype_rep("Ch",A_CHARTEXT);
  172.   chtype_rep("Color",A_COLOR);
  173.   chtype_rep("Attr",(A_ATTRIBUTES&~A_COLOR));
  174.   printf("      end record;\n   for %s'Size use %ld;\n", name, (long)(8*sizeof(chtype)));
  175.   printf("      --  Please note: this rep. clause is generated and may be\n");
  176.   printf("      --               different on your system.\n");
  177. }
  178.  
  179.  
  180. static void mrep_rep (const char *name, void *rec)
  181. {
  182.   int low, high;
  183.   int l = find_pos((char *)rec, sizeof(MEVENT), &low, &high);
  184.   if (l>=0)
  185.     printf("         %-7s at 0 range %3d .. %3d;\n",name,low,high);
  186. }
  187.  
  188.  
  189. static void gen_mrep_rep(const char *name)
  190. {
  191.   MEVENT x;
  192.  
  193.   printf("   for %s use\n      record\n",name);
  194.  
  195.   memset(&x,0,sizeof(x));
  196.   x.id = -1;
  197.   mrep_rep("Id",&x);
  198.  
  199.   memset(&x,0,sizeof(x));
  200.   x.x = -1;
  201.   mrep_rep("X",&x);
  202.  
  203.   memset(&x,0,sizeof(x));
  204.   x.y = -1;
  205.   mrep_rep("Y",&x);
  206.  
  207.   memset(&x,0,sizeof(x));
  208.   x.z = -1;
  209.   mrep_rep("Z",&x);
  210.  
  211.   memset(&x,0,sizeof(x));
  212.   x.bstate = -1;
  213.   mrep_rep("Bstate",&x);
  214.  
  215.   printf("      end record;\n");
  216.   printf("      --  Please note: this rep. clause is generated and may be\n");
  217.   printf("      --               different on your system.\n");
  218. }
  219.  
  220. static void gen_attr_set( const char *name )
  221. {
  222.   /* All of the A_xxx symbols are defined in ncurses, but not all are nonzero
  223.    * if "configure --enable-widec" is specified.
  224.    */
  225.   static const name_attribute_pair nap[] = {
  226. #if A_STANDOUT
  227.     {"Stand_Out",               A_STANDOUT},
  228. #endif
  229. #if A_UNDERLINE
  230.     {"Under_Line",              A_UNDERLINE},
  231. #endif
  232. #if A_REVERSE
  233.     {"Reverse_Video",           A_REVERSE},
  234. #endif
  235. #if A_BLINK
  236.     {"Blink",                   A_BLINK},
  237. #endif
  238. #if A_DIM
  239.     {"Dim_Character",           A_DIM},
  240. #endif
  241. #if A_BOLD
  242.     {"Bold_Character",          A_BOLD},
  243. #endif
  244. #if A_ALTCHARSET
  245.     {"Alternate_Character_Set", A_ALTCHARSET},
  246. #endif
  247. #if A_INVIS
  248.     {"Invisible_Character",     A_INVIS},
  249. #endif
  250. #if A_PROTECT
  251.     {"Protected_Character",     A_PROTECT},
  252. #endif
  253. #if A_HORIZONTAL
  254.     {"Horizontal",              A_HORIZONTAL},
  255. #endif
  256. #if A_LEFT
  257.     {"Left",                    A_LEFT},
  258. #endif
  259. #if A_LOW
  260.     {"Low",                     A_LOW},
  261. #endif
  262. #if A_RIGHT
  263.     {"Right",                   A_RIGHT},
  264. #endif
  265. #if A_TOP
  266.     {"Top",                     A_TOP},
  267. #endif
  268. #if A_VERTICAL
  269.     {"Vertical",                A_VERTICAL},
  270. #endif
  271.     {(char *)0,                 0}
  272.   };
  273.   chtype attr = A_ATTRIBUTES & ~A_COLOR;
  274.   int start=-1, len=0, i, set;
  275.   for(i=0;i<(int)(8*sizeof(chtype));i++) {
  276.     set = attr&1;
  277.     if (set) {
  278.       if (start<0)
  279.     start = i;
  280.       if (start>=0) {
  281.     len++;
  282.       }
  283.     }
  284.     attr = attr >> 1;
  285.   }
  286.   gen_reps (nap, name, (len+7)/8, little_endian?start:0);
  287. }
  288.  
  289. static void gen_trace(const char *name)
  290. {  
  291.   static const name_attribute_pair nap[] = {
  292.     {"Times",               TRACE_TIMES},
  293.     {"Tputs",               TRACE_TPUTS},
  294.     {"Update",              TRACE_UPDATE},
  295.     {"Cursor_Move",         TRACE_MOVE},
  296.     {"Character_Output",    TRACE_CHARPUT},
  297.     {"Calls",               TRACE_CALLS},
  298.     {"Virtual_Puts",        TRACE_VIRTPUT},
  299.     {"Input_Events",        TRACE_IEVENT},
  300.     {"TTY_State",           TRACE_BITS},
  301.     {"Internal_Calls",      TRACE_ICALLS},
  302.     {"Character_Calls",     TRACE_CCALLS},
  303.     {"Termcap_TermInfo",    TRACE_DATABASE},
  304.     {(char *)0,                0}
  305.   };
  306.   gen_reps(nap,name,sizeof(int),0);
  307. }
  308.  
  309. static void gen_menu_opt_rep(const char *name)
  310. {
  311.   static const name_attribute_pair nap[] = {
  312. #ifdef O_ONEVALUE
  313.     {"One_Valued", O_ONEVALUE},
  314. #endif
  315. #ifdef O_SHOWDESC
  316.     {"Show_Descriptions", O_SHOWDESC},
  317. #endif
  318. #ifdef O_ROWMAJOR
  319.     {"Row_Major_Order", O_ROWMAJOR},
  320. #endif
  321. #ifdef O_IGNORECASE
  322.     {"Ignore_Case", O_IGNORECASE},
  323. #endif
  324. #ifdef O_SHOWMATCH
  325.     {"Show_Matches", O_SHOWMATCH},
  326. #endif
  327. #ifdef O_NONCYCLIC
  328.     {"Non_Cyclic", O_NONCYCLIC},
  329. #endif
  330.     {(char *)0, 0}
  331.   };
  332.   gen_reps (nap, name, sizeof(int),0);
  333. }
  334.  
  335. static void gen_item_opt_rep(const char *name)
  336. {
  337.   static const name_attribute_pair nap[] = {
  338. #ifdef O_SELECTABLE
  339.     {"Selectable", O_SELECTABLE},
  340. #endif
  341.     {(char *)0   , 0}
  342.   };
  343.   gen_reps (nap, name, sizeof(int),0);
  344. }
  345.  
  346. static void gen_form_opt_rep(const char *name)
  347. {
  348.   static const name_attribute_pair nap[] = {
  349. #ifdef O_NL_OVERLOAD
  350.     {"NL_Overload", O_NL_OVERLOAD},
  351. #endif
  352. #ifdef O_BS_OVERLOAD
  353.     {"BS_Overload", O_BS_OVERLOAD},
  354. #endif
  355.     {(char *)0    , 0}
  356.   };
  357.   gen_reps (nap, name, sizeof(int),0);
  358. }
  359.  
  360. /*
  361.  * Generate the representation clause for the Field_Option_Set record
  362.  */
  363. static void gen_field_opt_rep(const char *name)
  364. {
  365.   static const name_attribute_pair nap[] = {
  366. #ifdef O_VISIBLE
  367.     {"Visible",O_VISIBLE},
  368. #endif
  369. #ifdef O_ACTIVE
  370.     {"Active",O_ACTIVE},
  371. #endif
  372. #ifdef O_PUBLIC
  373.     {"Public",O_PUBLIC},
  374. #endif
  375. #ifdef O_EDIT
  376.     {"Edit",O_EDIT},
  377. #endif
  378. #ifdef O_WRAP
  379.     {"Wrap",O_WRAP},
  380. #endif
  381. #ifdef O_BLANK
  382.     {"Blank",O_BLANK},
  383. #endif
  384. #ifdef O_AUTOSKIP
  385.     {"Auto_Skip",O_AUTOSKIP},
  386. #endif
  387. #ifdef O_NULLOK
  388.     {"Null_Ok",O_NULLOK},
  389. #endif
  390. #ifdef O_PASSOK
  391.     {"Pass_Ok",O_PASSOK},
  392. #endif
  393. #ifdef O_STATIC
  394.     {"Static",O_STATIC},
  395. #endif
  396.     {(char *)0, 0}
  397.   };
  398.   gen_reps (nap, name, sizeof(int),0);
  399. }
  400.  
  401. /*
  402.  * Generate a single key code constant definition.
  403.  */
  404. static void keydef(const char *name, const char *old_name, int value, int mode)
  405. {
  406.   if (mode==0) /* Generate the new name */
  407.     printf("   %-30s : constant Special_Key_Code := 8#%3o#;\n",name,value);
  408.   else
  409.     { /* generate the old name, but only if it doesn't conflict with the old
  410.        * name (Ada95 isn't case sensitive!)
  411.        */
  412.       const char *s = old_name; const char *t = name;
  413.       while ( *s && *t && (toupper(*s++) == toupper(*t++)));
  414.       if (*s || *t)
  415.     printf("   %-16s : Special_Key_Code renames %s;\n",old_name,name);
  416.     }
  417. }
  418.  
  419. /*
  420.  * Generate constants for the key codes. When called with mode==0, a
  421.  * complete list with nice constant names in proper casing style will
  422.  * be generated. Otherwise a list of old (i.e. C-style) names will be
  423.  * generated, given that the name wasn't already defined in the "nice"
  424.  * list.
  425.  */
  426. static void gen_keydefs (int mode)
  427. {
  428.   char buf[16];
  429.   char obuf[16];
  430.   int i;
  431.  
  432. #ifdef KEY_CODE_YES
  433.   keydef("Key_Code_Yes","KEY_CODE_YES",KEY_CODE_YES,mode);
  434. #endif
  435. #ifdef KEY_MIN
  436.   keydef("Key_Min","KEY_MIN",KEY_MIN,mode);
  437. #endif
  438. #ifdef KEY_BREAK
  439.   keydef("Key_Break","KEY_BREAK",KEY_BREAK,mode);
  440. #endif
  441. #ifdef KEY_DOWN
  442.   keydef("Key_Cursor_Down","KEY_DOWN",KEY_DOWN,mode);
  443. #endif
  444. #ifdef KEY_UP
  445.   keydef("Key_Cursor_Up","KEY_UP",KEY_UP,mode);
  446. #endif
  447. #ifdef KEY_LEFT
  448.   keydef("Key_Cursor_Left","KEY_LEFT",KEY_LEFT,mode);
  449. #endif
  450. #ifdef KEY_RIGHT
  451.   keydef("Key_Cursor_Right","KEY_RIGHT",KEY_RIGHT,mode);
  452. #endif
  453. #ifdef KEY_HOME
  454.   keydef("Key_Home","KEY_HOME",KEY_HOME,mode);
  455. #endif
  456. #ifdef KEY_BACKSPACE
  457.   keydef("Key_Backspace","KEY_BACKSPACE",KEY_BACKSPACE,mode);
  458. #endif
  459. #ifdef KEY_F0
  460.   keydef("Key_F0","KEY_F0",KEY_F0,mode);
  461. #endif
  462. #ifdef KEY_F
  463.   for(i=1;i<=24;i++)
  464.     {
  465.       sprintf(buf ,"Key_F%d",i);
  466.       sprintf(obuf,"KEY_F%d",i);
  467.       keydef(buf,obuf,KEY_F(i),mode);
  468.     }
  469. #endif
  470. #ifdef KEY_DL
  471.   keydef("Key_Delete_Line","KEY_DL",KEY_DL,mode);
  472. #endif
  473. #ifdef KEY_IL
  474.   keydef("Key_Insert_Line","KEY_IL",KEY_IL,mode);
  475. #endif
  476. #ifdef KEY_DC
  477.   keydef("Key_Delete_Char","KEY_DC",KEY_DC,mode);
  478. #endif
  479. #ifdef KEY_IC
  480.   keydef("Key_Insert_Char","KEY_IC",KEY_IC,mode);
  481. #endif
  482. #ifdef KEY_EIC
  483.   keydef("Key_Exit_Insert_Mode","KEY_EIC",KEY_EIC,mode);
  484. #endif
  485. #ifdef KEY_CLEAR
  486.   keydef("Key_Clear_Screen","KEY_CLEAR",KEY_CLEAR,mode);
  487. #endif
  488. #ifdef KEY_EOS
  489.   keydef("Key_Clear_End_Of_Screen","KEY_EOS",KEY_EOS,mode);
  490. #endif
  491. #ifdef KEY_EOL
  492.   keydef("Key_Clear_End_Of_Line","KEY_EOL",KEY_EOL,mode);
  493. #endif
  494. #ifdef KEY_SF
  495.   keydef("Key_Scroll_1_Forward","KEY_SF",KEY_SF,mode);
  496. #endif
  497. #ifdef KEY_SR
  498.   keydef("Key_Scroll_1_Backward","KEY_SR",KEY_SR,mode);
  499. #endif
  500. #ifdef KEY_NPAGE
  501.   keydef("Key_Next_Page","KEY_NPAGE",KEY_NPAGE,mode);
  502. #endif
  503. #ifdef KEY_PPAGE
  504.   keydef("Key_Previous_Page","KEY_PPAGE",KEY_PPAGE,mode);
  505. #endif
  506. #ifdef KEY_STAB
  507.   keydef("Key_Set_Tab","KEY_STAB",KEY_STAB,mode);
  508. #endif
  509. #ifdef KEY_CTAB
  510.   keydef("Key_Clear_Tab","KEY_CTAB",KEY_CTAB,mode);
  511. #endif
  512. #ifdef KEY_CATAB
  513.   keydef("Key_Clear_All_Tabs","KEY_CATAB",KEY_CATAB,mode);
  514. #endif
  515. #ifdef KEY_ENTER
  516.   keydef("Key_Enter_Or_Send","KEY_ENTER",KEY_ENTER,mode);
  517. #endif
  518. #ifdef KEY_SRESET
  519.   keydef("Key_Soft_Reset","KEY_SRESET",KEY_SRESET,mode);
  520. #endif
  521. #ifdef KEY_RESET
  522.   keydef("Key_Reset","KEY_RESET",KEY_RESET,mode);
  523. #endif
  524. #ifdef KEY_PRINT
  525.   keydef("Key_Print","KEY_PRINT",KEY_PRINT,mode);
  526. #endif
  527. #ifdef KEY_LL
  528.   keydef("Key_Bottom","KEY_LL",KEY_LL,mode);
  529. #endif
  530. #ifdef KEY_A1
  531.   keydef("Key_Upper_Left_Of_Keypad","KEY_A1",KEY_A1,mode);
  532. #endif
  533. #ifdef KEY_A3
  534.   keydef("Key_Upper_Right_Of_Keypad","KEY_A3",KEY_A3,mode);
  535. #endif
  536. #ifdef KEY_B2
  537.   keydef("Key_Center_Of_Keypad","KEY_B2",KEY_B2,mode);
  538. #endif
  539. #ifdef KEY_C1
  540.   keydef("Key_Lower_Left_Of_Keypad","KEY_C1",KEY_C1,mode);
  541. #endif
  542. #ifdef KEY_C3
  543.   keydef("Key_Lower_Right_Of_Keypad","KEY_C3",KEY_C3,mode);
  544. #endif
  545. #ifdef KEY_BTAB
  546.   keydef("Key_Back_Tab","KEY_BTAB",KEY_BTAB,mode);
  547. #endif
  548. #ifdef KEY_BEG
  549.   keydef("Key_Beginning","KEY_BEG",KEY_BEG,mode);
  550. #endif
  551. #ifdef KEY_CANCEL
  552.   keydef("Key_Cancel","KEY_CANCEL",KEY_CANCEL,mode);
  553. #endif
  554. #ifdef KEY_CLOSE
  555.   keydef("Key_Close","KEY_CLOSE",KEY_CLOSE,mode);
  556. #endif
  557. #ifdef KEY_COMMAND
  558.   keydef("Key_Command","KEY_COMMAND",KEY_COMMAND,mode);
  559. #endif
  560. #ifdef KEY_COPY
  561.   keydef("Key_Copy","KEY_COPY",KEY_COPY,mode);
  562. #endif
  563. #ifdef KEY_CREATE
  564.   keydef("Key_Create","KEY_CREATE",KEY_CREATE,mode);
  565. #endif
  566. #ifdef KEY_END
  567.   keydef("Key_End","KEY_END",KEY_END,mode);
  568. #endif
  569. #ifdef KEY_EXIT
  570.   keydef("Key_Exit","KEY_EXIT",KEY_EXIT,mode);
  571. #endif
  572. #ifdef KEY_FIND
  573.   keydef("Key_Find","KEY_FIND",KEY_FIND,mode);
  574. #endif
  575. #ifdef KEY_HELP
  576.   keydef("Key_Help","KEY_HELP",KEY_HELP,mode);
  577. #endif
  578. #ifdef KEY_MARK
  579.   keydef("Key_Mark","KEY_MARK",KEY_MARK,mode);
  580. #endif
  581. #ifdef KEY_MESSAGE
  582.   keydef("Key_Message","KEY_MESSAGE",KEY_MESSAGE,mode);
  583. #endif
  584. #ifdef KEY_MOVE
  585.   keydef("Key_Move","KEY_MOVE",KEY_MOVE,mode);
  586. #endif
  587. #ifdef KEY_NEXT
  588.   keydef("Key_Next","KEY_NEXT",KEY_NEXT,mode);
  589. #endif
  590. #ifdef KEY_OPEN
  591.   keydef("Key_Open","KEY_OPEN",KEY_OPEN,mode);
  592. #endif
  593. #ifdef KEY_OPTIONS
  594.   keydef("Key_Options","KEY_OPTIONS",KEY_OPTIONS,mode);
  595. #endif
  596. #ifdef KEY_PREVIOUS
  597.   keydef("Key_Previous","KEY_PREVIOUS",KEY_PREVIOUS,mode);
  598. #endif
  599. #ifdef KEY_REDO
  600.   keydef("Key_Redo","KEY_REDO",KEY_REDO,mode);
  601. #endif
  602. #ifdef KEY_REFERENCE
  603.   keydef("Key_Reference","KEY_REFERENCE",KEY_REFERENCE,mode);
  604. #endif
  605. #ifdef KEY_REFRESH
  606.   keydef("Key_Refresh","KEY_REFRESH",KEY_REFRESH,mode);
  607. #endif
  608. #ifdef KEY_REPLACE
  609.   keydef("Key_Replace","KEY_REPLACE",KEY_REPLACE,mode);
  610. #endif
  611. #ifdef KEY_RESTART
  612.   keydef("Key_Restart","KEY_RESTART",KEY_RESTART,mode);
  613. #endif
  614. #ifdef KEY_RESUME
  615.   keydef("Key_Resume","KEY_RESUME",KEY_RESUME,mode);
  616. #endif
  617. #ifdef KEY_SAVE
  618.   keydef("Key_Save","KEY_SAVE",KEY_SAVE,mode);
  619. #endif
  620. #ifdef KEY_SBEG
  621.   keydef("Key_Shift_Begin","KEY_SBEG",KEY_SBEG,mode);
  622. #endif
  623. #ifdef KEY_SCANCEL
  624.   keydef("Key_Shift_Cancel","KEY_SCANCEL",KEY_SCANCEL,mode);
  625. #endif
  626. #ifdef KEY_SCOMMAND
  627.   keydef("Key_Shift_Command","KEY_SCOMMAND",KEY_SCOMMAND,mode);
  628. #endif
  629. #ifdef KEY_SCOPY
  630.   keydef("Key_Shift_Copy","KEY_SCOPY",KEY_SCOPY,mode);
  631. #endif
  632. #ifdef KEY_SCREATE
  633.   keydef("Key_Shift_Create","KEY_SCREATE",KEY_SCREATE,mode);
  634. #endif
  635. #ifdef KEY_SDC
  636.   keydef("Key_Shift_Delete_Char","KEY_SDC",KEY_SDC,mode);
  637. #endif
  638. #ifdef KEY_SDL
  639.   keydef("Key_Shift_Delete_Line","KEY_SDL",KEY_SDL,mode);
  640. #endif
  641. #ifdef KEY_SELECT
  642.   keydef("Key_Select","KEY_SELECT",KEY_SELECT,mode);
  643. #endif
  644. #ifdef KEY_SEND
  645.   keydef("Key_Shift_End","KEY_SEND",KEY_SEND,mode);
  646. #endif
  647. #ifdef KEY_SEOL
  648.   keydef("Key_Shift_Clear_End_Of_Line","KEY_SEOL",KEY_SEOL,mode);
  649. #endif
  650. #ifdef KEY_SEXIT
  651.   keydef("Key_Shift_Exit","KEY_SEXIT",KEY_SEXIT,mode);
  652. #endif
  653. #ifdef KEY_SFIND
  654.   keydef("Key_Shift_Find","KEY_SFIND",KEY_SFIND,mode);
  655. #endif
  656. #ifdef KEY_SHELP
  657.   keydef("Key_Shift_Help","KEY_SHELP",KEY_SHELP,mode);
  658. #endif
  659. #ifdef KEY_SHOME
  660.   keydef("Key_Shift_Home","KEY_SHOME",KEY_SHOME,mode);
  661. #endif
  662. #ifdef KEY_SIC
  663.   keydef("Key_Shift_Insert_Char","KEY_SIC",KEY_SIC,mode);
  664. #endif
  665. #ifdef KEY_SLEFT
  666.   keydef("Key_Shift_Cursor_Left","KEY_SLEFT",KEY_SLEFT,mode);
  667. #endif
  668. #ifdef KEY_SMESSAGE
  669.   keydef("Key_Shift_Message","KEY_SMESSAGE",KEY_SMESSAGE,mode);
  670. #endif
  671. #ifdef KEY_SMOVE
  672.   keydef("Key_Shift_Move","KEY_SMOVE",KEY_SMOVE,mode);
  673. #endif
  674. #ifdef KEY_SNEXT
  675.   keydef("Key_Shift_Next_Page","KEY_SNEXT",KEY_SNEXT,mode);
  676. #endif
  677. #ifdef KEY_SOPTIONS
  678.   keydef("Key_Shift_Options","KEY_SOPTIONS",KEY_SOPTIONS,mode);
  679. #endif
  680. #ifdef KEY_SPREVIOUS
  681.   keydef("Key_Shift_Previous_Page","KEY_SPREVIOUS",KEY_SPREVIOUS,mode);
  682. #endif
  683. #ifdef KEY_SPRINT
  684.   keydef("Key_Shift_Print","KEY_SPRINT",KEY_SPRINT,mode);
  685. #endif
  686. #ifdef KEY_SREDO
  687.   keydef("Key_Shift_Redo","KEY_SREDO",KEY_SREDO,mode);
  688. #endif
  689. #ifdef KEY_SREPLACE
  690.   keydef("Key_Shift_Replace","KEY_SREPLACE",KEY_SREPLACE,mode);
  691. #endif
  692. #ifdef KEY_SRIGHT
  693.   keydef("Key_Shift_Cursor_Right","KEY_SRIGHT",KEY_SRIGHT,mode);
  694. #endif
  695. #ifdef KEY_SRSUME
  696.   keydef("Key_Shift_Resume","KEY_SRSUME",KEY_SRSUME,mode);
  697. #endif
  698. #ifdef KEY_SSAVE
  699.   keydef("Key_Shift_Save","KEY_SSAVE",KEY_SSAVE,mode);
  700. #endif
  701. #ifdef KEY_SSUSPEND
  702.   keydef("Key_Shift_Suspend","KEY_SSUSPEND",KEY_SSUSPEND,mode);
  703. #endif
  704. #ifdef KEY_SUNDO
  705.   keydef("Key_Shift_Undo","KEY_SUNDO",KEY_SUNDO,mode);
  706. #endif
  707. #ifdef KEY_SUSPEND
  708.   keydef("Key_Suspend","KEY_SUSPEND",KEY_SUSPEND,mode);
  709. #endif
  710. #ifdef KEY_UNDO
  711.   keydef("Key_Undo","KEY_UNDO",KEY_UNDO,mode);
  712. #endif
  713. #ifdef KEY_MOUSE
  714.   keydef("Key_Mouse","KEY_MOUSE",KEY_MOUSE,mode);
  715. #endif
  716. #ifdef KEY_RESIZE
  717.   keydef("Key_Resize","KEY_RESIZE",KEY_RESIZE,mode);
  718. #endif
  719. }
  720.  
  721. /*
  722.  * Generate a constant with the given name. The second parameter
  723.  * is a reference to the ACS character in the acs_map[] array and
  724.  * will be translated into an index.
  725.  */
  726. static void acs_def (const char *name, chtype *a)
  727. {
  728.   int c = a - &acs_map[0];
  729.   printf("   %-24s : constant Character := ",name);
  730.   if (isprint(c) && (c!='`'))
  731.     printf("'%c';\n",c);
  732.   else
  733.     printf("Character'Val (%d);\n",c);
  734. }
  735.  
  736. /*
  737.  * Generate the constants for the ACS characters
  738.  */
  739. static void gen_acs (void)
  740. {
  741. #ifdef ACS_ULCORNER
  742.   acs_def("ACS_Upper_Left_Corner",&ACS_ULCORNER);
  743. #endif
  744. #ifdef ACS_LLCORNER
  745.   acs_def("ACS_Lower_Left_Corner",&ACS_LLCORNER);
  746. #endif
  747. #ifdef ACS_URCORNER
  748.   acs_def("ACS_Upper_Right_Corner",&ACS_URCORNER);
  749. #endif
  750. #ifdef ACS_LRCORNER
  751.   acs_def("ACS_Lower_Right_Corner",&ACS_LRCORNER);
  752. #endif
  753. #ifdef ACS_LTEE
  754.   acs_def("ACS_Left_Tee",&ACS_LTEE);
  755. #endif
  756. #ifdef ACS_RTEE
  757.   acs_def("ACS_Right_Tee",&ACS_RTEE);
  758. #endif
  759. #ifdef ACS_BTEE
  760.   acs_def("ACS_Bottom_Tee",&ACS_BTEE);
  761. #endif
  762. #ifdef ACS_TTEE
  763.   acs_def("ACS_Top_Tee",&ACS_TTEE);
  764. #endif
  765. #ifdef ACS_HLINE
  766.   acs_def("ACS_Horizontal_Line",&ACS_HLINE);
  767. #endif
  768. #ifdef ACS_VLINE
  769.   acs_def("ACS_Vertical_Line",&ACS_VLINE);
  770. #endif
  771. #ifdef ACS_PLUS
  772.   acs_def("ACS_Plus_Symbol",&ACS_PLUS);
  773. #endif
  774. #ifdef ACS_S1
  775.   acs_def("ACS_Scan_Line_1",&ACS_S1);
  776. #endif
  777. #ifdef ACS_S9
  778.   acs_def("ACS_Scan_Line_9",&ACS_S9);
  779. #endif
  780. #ifdef ACS_DIAMOND
  781.   acs_def("ACS_Diamond",&ACS_DIAMOND);
  782. #endif
  783. #ifdef ACS_CKBOARD
  784.   acs_def("ACS_Checker_Board",&ACS_CKBOARD);
  785. #endif
  786. #ifdef ACS_DEGREE
  787.   acs_def("ACS_Degree",&ACS_DEGREE);
  788. #endif
  789. #ifdef ACS_PLMINUS
  790.   acs_def("ACS_Plus_Minus",&ACS_PLMINUS);
  791. #endif
  792. #ifdef ACS_BULLET
  793.   acs_def("ACS_Bullet",&ACS_BULLET);
  794. #endif
  795. #ifdef ACS_LARROW
  796.   acs_def("ACS_Left_Arrow",&ACS_LARROW);
  797. #endif
  798. #ifdef ACS_RARROW
  799.   acs_def("ACS_Right_Arrow",&ACS_RARROW);
  800. #endif
  801. #ifdef ACS_DARROW
  802.   acs_def("ACS_Down_Arrow",&ACS_DARROW);
  803. #endif
  804. #ifdef ACS_UARROW
  805.   acs_def("ACS_Up_Arrow",&ACS_UARROW);
  806. #endif
  807. #ifdef ACS_BOARD
  808.   acs_def("ACS_Board_Of_Squares",&ACS_BOARD);
  809. #endif
  810. #ifdef ACS_LANTERN
  811.   acs_def("ACS_Lantern",&ACS_LANTERN);
  812. #endif
  813. #ifdef ACS_BLOCK
  814.   acs_def("ACS_Solid_Block",&ACS_BLOCK);
  815. #endif
  816. #ifdef ACS_S3
  817.   acs_def("ACS_Scan_Line_3",&ACS_S3);
  818. #endif
  819. #ifdef ACS_S7
  820.   acs_def("ACS_Scan_Line_7",&ACS_S7);
  821. #endif
  822. #ifdef ACS_LEQUAL
  823.   acs_def("ACS_Less_Or_Equal",&ACS_LEQUAL);
  824. #endif
  825. #ifdef ACS_GEQUAL
  826.   acs_def("ACS_Greater_Or_Equal",&ACS_GEQUAL);
  827. #endif
  828. #ifdef ACS_PI
  829.   acs_def("ACS_PI",&ACS_PI);
  830. #endif
  831. #ifdef ACS_NEQUAL
  832.   acs_def("ACS_Not_Equal",&ACS_NEQUAL);
  833. #endif
  834. #ifdef ACS_STERLING
  835.   acs_def("ACS_Sterling",&ACS_STERLING);
  836. #endif
  837. }
  838.  
  839.  
  840. #define GEN_EVENT(name,value) \
  841.    printf("   %-25s : constant Event_Mask := 8#%011lo#;\n", \
  842.           #name, value)
  843.  
  844. #define GEN_MEVENT(name) \
  845.    printf("   %-25s : constant Event_Mask := 8#%011lo#;\n", \
  846.           #name, name)
  847.  
  848. static
  849. void gen_mouse_events(void)
  850. {
  851.   mmask_t all1 = 0;
  852.   mmask_t all2 = 0;
  853.   mmask_t all3 = 0;
  854.   mmask_t all4 = 0;
  855.  
  856. #ifdef BUTTON1_RELEASED
  857.   GEN_MEVENT(BUTTON1_RELEASED);
  858.   all1 |= BUTTON1_RELEASED;
  859. #endif
  860. #ifdef BUTTON1_PRESSED
  861.   GEN_MEVENT(BUTTON1_PRESSED);
  862.   all1 |= BUTTON1_PRESSED;
  863. #endif
  864. #ifdef BUTTON1_CLICKED
  865.   GEN_MEVENT(BUTTON1_CLICKED);
  866.   all1 |= BUTTON1_CLICKED;
  867. #endif
  868. #ifdef BUTTON1_DOUBLE_CLICKED
  869.   GEN_MEVENT(BUTTON1_DOUBLE_CLICKED);
  870.   all1 |= BUTTON1_DOUBLE_CLICKED;
  871. #endif
  872. #ifdef BUTTON1_TRIPLE_CLICKED
  873.   GEN_MEVENT(BUTTON1_TRIPLE_CLICKED);
  874.   all1 |= BUTTON1_TRIPLE_CLICKED;
  875. #endif
  876. #ifdef BUTTON1_RESERVED_EVENT
  877.   GEN_MEVENT(BUTTON1_RESERVED_EVENT);
  878.   all1 |= BUTTON1_RESERVED_EVENT;
  879. #endif
  880. #ifdef BUTTON2_RELEASED
  881.   GEN_MEVENT(BUTTON2_RELEASED);
  882.   all2 |= BUTTON2_RELEASED;
  883. #endif
  884. #ifdef BUTTON2_PRESSED
  885.   GEN_MEVENT(BUTTON2_PRESSED);
  886.   all2 |= BUTTON2_PRESSED;
  887. #endif
  888. #ifdef BUTTON2_CLICKED
  889.   GEN_MEVENT(BUTTON2_CLICKED);
  890.   all2 |= BUTTON2_CLICKED;
  891. #endif
  892. #ifdef BUTTON2_DOUBLE_CLICKED
  893.   GEN_MEVENT(BUTTON2_DOUBLE_CLICKED);
  894.   all2 |= BUTTON2_DOUBLE_CLICKED;
  895. #endif
  896. #ifdef BUTTON2_TRIPLE_CLICKED
  897.   GEN_MEVENT(BUTTON2_TRIPLE_CLICKED);
  898.   all2 |= BUTTON2_TRIPLE_CLICKED;
  899. #endif
  900. #ifdef BUTTON2_RESERVED_EVENT
  901.   GEN_MEVENT(BUTTON2_RESERVED_EVENT);
  902.   all2 |= BUTTON2_RESERVED_EVENT;
  903. #endif
  904. #ifdef BUTTON3_RELEASED
  905.   GEN_MEVENT(BUTTON3_RELEASED);
  906.   all3 |= BUTTON3_RELEASED;
  907. #endif
  908. #ifdef BUTTON3_PRESSED
  909.   GEN_MEVENT(BUTTON3_PRESSED);
  910.   all3 |= BUTTON3_PRESSED;
  911. #endif
  912. #ifdef BUTTON3_CLICKED
  913.   GEN_MEVENT(BUTTON3_CLICKED);
  914.   all3 |= BUTTON3_CLICKED;
  915. #endif
  916. #ifdef BUTTON3_DOUBLE_CLICKED
  917.   GEN_MEVENT(BUTTON3_DOUBLE_CLICKED);
  918.   all3 |= BUTTON3_DOUBLE_CLICKED;
  919. #endif
  920. #ifdef BUTTON3_TRIPLE_CLICKED
  921.   GEN_MEVENT(BUTTON3_TRIPLE_CLICKED);
  922.   all3 |= BUTTON3_TRIPLE_CLICKED;
  923. #endif
  924. #ifdef BUTTON3_RESERVED_EVENT
  925.   GEN_MEVENT(BUTTON3_RESERVED_EVENT);
  926.   all3 |= BUTTON3_RESERVED_EVENT;
  927. #endif
  928. #ifdef BUTTON4_RELEASED
  929.   GEN_MEVENT(BUTTON4_RELEASED);
  930.   all4 |= BUTTON4_RELEASED;
  931. #endif
  932. #ifdef BUTTON4_PRESSED
  933.   GEN_MEVENT(BUTTON4_PRESSED);
  934.   all4 |= BUTTON4_PRESSED;
  935. #endif
  936. #ifdef BUTTON4_CLICKED
  937.   GEN_MEVENT(BUTTON4_CLICKED);
  938.   all4 |= BUTTON4_CLICKED;
  939. #endif
  940. #ifdef BUTTON4_DOUBLE_CLICKED
  941.   GEN_MEVENT(BUTTON4_DOUBLE_CLICKED);
  942.   all4 |= BUTTON4_DOUBLE_CLICKED;
  943. #endif
  944. #ifdef BUTTON4_TRIPLE_CLICKED
  945.   GEN_MEVENT(BUTTON4_TRIPLE_CLICKED);
  946.   all4 |= BUTTON4_TRIPLE_CLICKED;
  947. #endif
  948. #ifdef BUTTON4_RESERVED_EVENT
  949.   GEN_MEVENT(BUTTON4_RESERVED_EVENT);
  950.   all4 |= BUTTON4_RESERVED_EVENT;
  951. #endif
  952. #ifdef BUTTON_CTRL
  953.   GEN_MEVENT(BUTTON_CTRL);
  954. #endif
  955. #ifdef BUTTON_SHIFT
  956.   GEN_MEVENT(BUTTON_SHIFT);
  957. #endif
  958. #ifdef BUTTON_ALT
  959.   GEN_MEVENT(BUTTON_ALT);
  960. #endif
  961. #ifdef REPORT_MOUSE_POSITION
  962.   GEN_MEVENT(REPORT_MOUSE_POSITION);
  963. #endif   
  964. #ifdef ALL_MOUSE_EVENTS
  965.   GEN_MEVENT(ALL_MOUSE_EVENTS);
  966. #endif
  967.  
  968. GEN_EVENT(BUTTON1_EVENTS,all1);
  969. GEN_EVENT(BUTTON2_EVENTS,all2);
  970. GEN_EVENT(BUTTON3_EVENTS,all3);
  971. GEN_EVENT(BUTTON4_EVENTS,all4);
  972. }
  973.  
  974. /*
  975.  * Output some comment lines indicating that the file is generated.
  976.  * The name parameter is the name of the facility to be used in
  977.  * the comment.
  978.  */
  979. static void prologue(const char *name)
  980. {
  981.   printf("--  %s binding.\n",name);
  982.   printf("--  This module is generated. Please don't change it manually!\n");
  983.   printf("--  Run the generator instead.\n--  |");
  984.  
  985.   printf("define(`M4_BIT_ORDER',`%s_Order_First')",
  986.      little_endian ? "Low":"High");
  987. }
  988.  
  989. /*
  990.  * Write the prologue for the curses facility and make sure that
  991.  * KEY_MIN and KEY_MAX are defined for the rest of this source.
  992.  */
  993. static void basedefs (void)
  994. {
  995.   prologue("curses");
  996. #ifndef KEY_MAX
  997. #  define KEY_MAX 0777
  998. #endif
  999.   printf("define(`M4_KEY_MAX',`8#%o#')",KEY_MAX);
  1000. #ifndef KEY_MIN
  1001. #  define KEY_MIN 0401
  1002. #endif
  1003.   if (KEY_MIN == 256) {
  1004.     fprintf(stderr,"Unexpected value for KEY_MIN: %d\n",KEY_MIN);
  1005.     exit(1);
  1006.   }
  1007.   printf("define(`M4_SPECIAL_FIRST',`8#%o#')",KEY_MIN - 1);
  1008. }
  1009.  
  1010. /*
  1011.  * Write out the comment lines for the menu facility
  1012.  */
  1013. static void menu_basedefs (void)
  1014. {
  1015.   prologue("menu");
  1016. }
  1017.  
  1018. /*
  1019.  * Write out the comment lines for the form facility
  1020.  */
  1021. static void form_basedefs (void)
  1022. {
  1023.   prologue("form");
  1024. }
  1025.  
  1026. /*
  1027.  * Write out the comment lines for the mouse facility
  1028.  */
  1029. static void mouse_basedefs(void)
  1030. {
  1031.   prologue("mouse");
  1032. }
  1033.  
  1034. /*
  1035.  * Write the definition of a single color
  1036.  */
  1037. static void color_def (const char *name, int value)
  1038. {
  1039.   printf("   %-16s : constant Color_Number := %d;\n",name,value);
  1040. }
  1041.  
  1042. #define HAVE_USE_DEFAULT_COLORS 1
  1043.  
  1044. /*
  1045.  * Generate all color definitions
  1046.  */
  1047. static void gen_color (void)
  1048. {
  1049. #ifdef HAVE_USE_DEFAULT_COLORS
  1050.   color_def ("Default_Color",-1);
  1051. #endif
  1052. #ifdef COLOR_BLACK
  1053.   color_def ("Black",COLOR_BLACK);
  1054. #endif
  1055. #ifdef COLOR_RED
  1056.   color_def ("Red",COLOR_RED);
  1057. #endif
  1058. #ifdef COLOR_GREEN
  1059.   color_def ("Green",COLOR_GREEN);
  1060. #endif
  1061. #ifdef COLOR_YELLOW
  1062.   color_def ("Yellow",COLOR_YELLOW);
  1063. #endif
  1064. #ifdef COLOR_BLUE
  1065.   color_def ("Blue",COLOR_BLUE);
  1066. #endif
  1067. #ifdef COLOR_MAGENTA
  1068.   color_def ("Magenta",COLOR_MAGENTA);
  1069. #endif
  1070. #ifdef COLOR_CYAN
  1071.   color_def ("Cyan",COLOR_CYAN);
  1072. #endif
  1073. #ifdef COLOR_WHITE
  1074.   color_def ("White",COLOR_WHITE);
  1075. #endif
  1076. }
  1077.  
  1078. /*
  1079.  * Generate the linker options for the base facility
  1080.  */
  1081. static void gen_linkopts (void)
  1082. {
  1083.    printf("   pragma Linker_Options (\"-lncurses%s\");\n", model);
  1084. }
  1085.  
  1086. /*
  1087.  * Generate the linker options for the menu facility
  1088.  */
  1089. static void gen_menu_linkopts (void)
  1090. {
  1091.    printf("   pragma Linker_Options (\"-lmenu%s\");\n", model);
  1092. }
  1093.  
  1094. /*
  1095.  * Generate the linker options for the form facility
  1096.  */
  1097. static void gen_form_linkopts (void)
  1098. {
  1099.    printf("   pragma Linker_Options (\"-lform%s\");\n", model);
  1100. }
  1101.  
  1102. /*
  1103.  * Generate the linker options for the panel facility
  1104.  */
  1105. static void gen_panel_linkopts (void)
  1106. {
  1107.    printf("   pragma Linker_Options (\"-lpanel%s\");\n", model);
  1108. }
  1109.  
  1110. static void gen_version_info (void)
  1111. {
  1112.   static const char* v1 =
  1113.     "   NC_Major_Version : constant := %d; --  Major version of the library\n";
  1114.   static const char* v2 =
  1115.     "   NC_Minor_Version : constant := %d; --  Minor version of the library\n";
  1116.   static const char* v3 =
  1117.     "   NC_Version : constant String := %c%d.%d%c;  --  Version of library\n";
  1118.  
  1119.   printf(v1, NCURSES_VERSION_MAJOR);
  1120.   printf(v2, NCURSES_VERSION_MINOR);
  1121.   printf(v3, '"',NCURSES_VERSION_MAJOR,NCURSES_VERSION_MINOR,'"');
  1122. }
  1123.  
  1124. static int
  1125. eti_gen(char*buf, int code, const char* name, int* etimin, int* etimax)
  1126. {
  1127.   sprintf(buf,"   E_%-16s : constant Eti_Error := %d;\n",name,code);
  1128.   if (code < *etimin)
  1129.     *etimin = code;
  1130.   if (code > *etimax)
  1131.     *etimax = code;
  1132.   return strlen(buf);
  1133. }
  1134.  
  1135. #define GEN_OFFSET(member,itype)                                    \
  1136.   if (sizeof(((WINDOW*)0)->member)==sizeof(itype)) {                \
  1137.     o = offsetof(WINDOW, member);                                   \
  1138.     if ((o%sizeof(itype) == 0)) {                                   \
  1139.        printf("   Offset%-*s : constant Natural := %2ld; --  %s\n", \
  1140.               12, #member, o/sizeof(itype),#itype);                 \
  1141.     }                                                               \
  1142.   }
  1143.   
  1144. static void
  1145. gen_offsets(void)
  1146. {
  1147.   long o;
  1148.   const char* s_bool = "";
  1149.  
  1150.   GEN_OFFSET(_maxy,short);
  1151.   GEN_OFFSET(_maxx,short);
  1152.   GEN_OFFSET(_begy,short);
  1153.   GEN_OFFSET(_begx,short);
  1154.   GEN_OFFSET(_cury,short);
  1155.   GEN_OFFSET(_curx,short);
  1156.   GEN_OFFSET(_yoffset,short);
  1157.   GEN_OFFSET(_pary,int);
  1158.   GEN_OFFSET(_parx,int);
  1159.   if (sizeof(bool) == sizeof(char)) {
  1160.     GEN_OFFSET(_notimeout,char);
  1161.     GEN_OFFSET(_clear,char);
  1162.     GEN_OFFSET(_leaveok,char);
  1163.     GEN_OFFSET(_scroll,char);
  1164.     GEN_OFFSET(_idlok,char);
  1165.     GEN_OFFSET(_idcok,char);
  1166.     GEN_OFFSET(_immed,char);
  1167.     GEN_OFFSET(_sync,char);
  1168.     GEN_OFFSET(_use_keypad,char);
  1169.     s_bool = "char";
  1170.   } else if (sizeof(bool) == sizeof(short)) {
  1171.     GEN_OFFSET(_notimeout,short);
  1172.     GEN_OFFSET(_clear,short);
  1173.     GEN_OFFSET(_leaveok,short);
  1174.     GEN_OFFSET(_scroll,short);
  1175.     GEN_OFFSET(_idlok,short);
  1176.     GEN_OFFSET(_idcok,short);
  1177.     GEN_OFFSET(_immed,short);
  1178.     GEN_OFFSET(_sync,short);
  1179.     GEN_OFFSET(_use_keypad,short);
  1180.     s_bool = "short";
  1181.   } else if (sizeof(bool) == sizeof(int)) {
  1182.     GEN_OFFSET(_notimeout,int);
  1183.     GEN_OFFSET(_clear,int);
  1184.     GEN_OFFSET(_leaveok,int);
  1185.     GEN_OFFSET(_scroll,int);
  1186.     GEN_OFFSET(_idlok,int);
  1187.     GEN_OFFSET(_idcok,int);
  1188.     GEN_OFFSET(_immed,int);
  1189.     GEN_OFFSET(_sync,int);
  1190.     GEN_OFFSET(_use_keypad,int);
  1191.     s_bool = "int";
  1192.   }
  1193.   printf("   Sizeof%-*s : constant Natural := %2ld; --  %s\n",
  1194.      12, "_bool", (long) sizeof(bool),"bool");
  1195.   /* In ncurses _maxy and _maxx needs an offset for the "public"
  1196.    * value
  1197.    */
  1198.   printf("   Offset%-*s : constant Natural := %2d; --  %s\n",
  1199.      12, "_XY",1,"int");
  1200.   printf("\n");
  1201.   printf("   type Curses_Bool is mod 2 ** Interfaces.C.%s'Size;\n",s_bool);
  1202. }
  1203.  
  1204. /*
  1205.  * main() expects two arguments on the commandline, both single characters.
  1206.  * The first character denotes the facility for which we generate output.
  1207.  * Possible values are
  1208.  *   B - Base
  1209.  *   M - Menus
  1210.  *   F - Forms
  1211.  *   P - Pointer Device (Mouse)
  1212.  *   E - ETI base definitions
  1213.  *
  1214.  * The second character then denotes the specific output that should be
  1215.  * generated for the selected facility.
  1216.  */
  1217. int main(int argc, char *argv[])
  1218. {
  1219.   int x = 0x12345678;
  1220.   char *s = (char *)&x;
  1221.  
  1222.   if (*s == 0x78)
  1223.     little_endian = 1;
  1224.  
  1225.   if (argc!=4)
  1226.     exit(1);
  1227.   model = *++argv;
  1228.  
  1229.   switch(argv[1][0])
  1230.     {
  1231.       /* ---------------------------------------------------------------*/   
  1232.     case 'B': /* The Base facility */
  1233.       switch(argv[2][0])
  1234.     {
  1235.     case 'A': /* chtype translation into Ada95 record type */
  1236.       gen_attr_set("Character_Attribute_Set");
  1237.       break;
  1238.     case 'K': /* translation of keycodes */
  1239.       gen_keydefs(0);
  1240.       break;
  1241.     case 'B': /* write some initial comment lines */
  1242.       basedefs();
  1243.       break;
  1244.     case 'C': /* generate color constants */
  1245.       gen_color();
  1246.       break;
  1247.     case 'D': /* generate displacements of fields in WINDOW struct. */
  1248.       gen_offsets();
  1249.       break;
  1250.     case 'E': /* generate Mouse Event codes */
  1251.       gen_mouse_events();
  1252.       break;
  1253.     case 'M': /* generate constants for the ACS characters */
  1254.       gen_acs();
  1255.       break;
  1256.     case 'L': /* generate the Linker_Options pragma */
  1257.       gen_linkopts();
  1258.       break;
  1259.     case 'O': /* generate definitions of the old key code names */
  1260.       gen_keydefs(1);
  1261.       break;
  1262.     case 'R': /* generate representation clause for Attributed character */
  1263.       gen_chtype_rep("Attributed_Character");
  1264.       break;
  1265.     case 'V': /* generate version info */
  1266.       gen_version_info();
  1267.       break;
  1268.     case 'T': /* generate the Trace info */
  1269.       gen_trace("Trace_Attribute_Set");
  1270.       break;
  1271.     default:
  1272.       break;
  1273.     }
  1274.       break;
  1275.       /* ---------------------------------------------------------------*/   
  1276.     case 'M': /* The Menu facility */
  1277.       switch(argv[2][0])
  1278.     {
  1279.     case 'R': /* generate representation clause for Menu_Option_Set */
  1280.       gen_menu_opt_rep("Menu_Option_Set");
  1281.       break;
  1282.     case 'B': /* write some initial comment lines */
  1283.       menu_basedefs();
  1284.       break;
  1285.     case 'L': /* generate the Linker_Options pragma */
  1286.       gen_menu_linkopts();
  1287.       break;
  1288.     case 'I': /* generate representation clause for Item_Option_Set */
  1289.       gen_item_opt_rep("Item_Option_Set");
  1290.       break;
  1291.     default:
  1292.       break;
  1293.     }
  1294.       break;
  1295.       /* ---------------------------------------------------------------*/   
  1296.     case 'F': /* The Form facility */
  1297.       switch(argv[2][0])
  1298.     {
  1299.     case 'R': /* generate representation clause for Form_Option_Set */
  1300.       gen_form_opt_rep("Form_Option_Set");
  1301.       break;
  1302.     case 'B': /* write some initial comment lines */
  1303.       form_basedefs();
  1304.       break;
  1305.     case 'L': /* generate the Linker_Options pragma */
  1306.       gen_form_linkopts();
  1307.       break;
  1308.     case 'I': /* generate representation clause for Field_Option_Set */
  1309.       gen_field_opt_rep("Field_Option_Set");
  1310.       break;
  1311.     default:
  1312.       break;
  1313.     }
  1314.       break;
  1315.       /* ---------------------------------------------------------------*/   
  1316.     case 'P': /* The Pointer(=Mouse) facility */
  1317.       switch(argv[2][0]) {
  1318.     case 'B': /* write some initial comment lines */
  1319.       mouse_basedefs();
  1320.       break;
  1321.     case 'M': /* generate representation clause for Mouse_Event */
  1322.       gen_mrep_rep("Mouse_Event");
  1323.       break;
  1324.     case 'L': /* generate the Linker_Options pragma */
  1325.       gen_panel_linkopts();
  1326.       break;
  1327.     default:
  1328.       break;
  1329.     }
  1330.     break;
  1331.       /* ---------------------------------------------------------------*/   
  1332.     case 'E' : /* chtype size detection */
  1333.       switch(argv[2][0]) {
  1334.       case 'C':
  1335.     {
  1336.       const char* fmt  = "   type    C_Chtype   is new %s;\n";
  1337.       const char* afmt = "   type    C_AttrType is new %s;\n";
  1338.  
  1339.       if (sizeof(chtype)==sizeof(int)) {
  1340.         if (sizeof(int)==sizeof(long))
  1341.           printf(fmt,"C_ULong");
  1342.         else
  1343.           printf(fmt,"C_UInt");
  1344.       }
  1345.       else if (sizeof(chtype)==sizeof(long)) {
  1346.         printf(fmt,"C_ULong");
  1347.       }
  1348.       else
  1349.         printf("Error\n");
  1350.  
  1351.       if (sizeof(attr_t)==sizeof(int)) {
  1352.         if (sizeof(int)==sizeof(long))
  1353.           printf(afmt,"C_ULong");
  1354.         else
  1355.           printf(afmt,"C_UInt");
  1356.       }
  1357.       else if (sizeof(attr_t)==sizeof(long)) {
  1358.         printf(afmt,"C_ULong");
  1359.       }
  1360.       else
  1361.         printf("Error\n");
  1362.  
  1363.       printf("define(`CF_CURSES_OK',`%d')",OK);
  1364.       printf("define(`CF_CURSES_ERR',`%d')",ERR);
  1365.       printf("define(`CF_CURSES_TRUE',`%d')",TRUE);
  1366.       printf("define(`CF_CURSES_FALSE',`%d')",FALSE);
  1367.     }
  1368.     break;
  1369.       case 'E':
  1370.     {
  1371.       char* buf  = (char*)malloc(2048);
  1372.       char* p    = buf;
  1373.       int etimin = E_OK;
  1374.       int etimax = E_OK;
  1375.       if (p) {
  1376.         p += eti_gen(p, E_OK, "Ok", &etimin, &etimax);
  1377.         p += eti_gen(p, E_SYSTEM_ERROR,"System_Error", &etimin, &etimax);
  1378.         p += eti_gen(p, E_BAD_ARGUMENT, "Bad_Argument", &etimin, &etimax);
  1379.         p += eti_gen(p, E_POSTED, "Posted", &etimin, &etimax);
  1380.         p += eti_gen(p, E_CONNECTED, "Connected", &etimin, &etimax);
  1381.         p += eti_gen(p, E_BAD_STATE, "Bad_State", &etimin, &etimax);
  1382.         p += eti_gen(p, E_NO_ROOM, "No_Room", &etimin, &etimax);
  1383.         p += eti_gen(p, E_NOT_POSTED, "Not_Posted", &etimin, &etimax);
  1384.         p += eti_gen(p, E_UNKNOWN_COMMAND,
  1385.              "Unknown_Command", &etimin, &etimax);
  1386.         p += eti_gen(p, E_NO_MATCH, "No_Match", &etimin, &etimax);
  1387.         p += eti_gen(p, E_NOT_SELECTABLE,
  1388.              "Not_Selectable", &etimin, &etimax);
  1389.         p += eti_gen(p, E_NOT_CONNECTED,
  1390.              "Not_Connected", &etimin, &etimax);
  1391.         p += eti_gen(p, E_REQUEST_DENIED,
  1392.              "Request_Denied", &etimin, &etimax);
  1393.         p += eti_gen(p, E_INVALID_FIELD,
  1394.              "Invalid_Field", &etimin, &etimax);
  1395.         p += eti_gen(p, E_CURRENT,
  1396.              "Current", &etimin, &etimax);
  1397.       }
  1398.       printf("   subtype Eti_Error is C_Int range %d .. %d;\n\n",
  1399.          etimin,etimax);
  1400.       printf(buf);
  1401.     }
  1402.     break;
  1403.       default:
  1404.     break;
  1405.       }
  1406.       break;
  1407.       /* ---------------------------------------------------------------*/   
  1408.     case 'V' : /* plain version dump */
  1409.       {
  1410.     switch(argv[2][0]) {
  1411.     case '1': /* major version */
  1412. #ifdef NCURSES_VERSION_MAJOR
  1413.       printf("%d",NCURSES_VERSION_MAJOR);
  1414. #endif
  1415.       break;
  1416.     case '2': /* minor version */
  1417. #ifdef NCURSES_VERSION_MINOR
  1418.       printf("%d",NCURSES_VERSION_MINOR);
  1419. #endif
  1420.       break;
  1421.     case '3': /* patch level */
  1422. #ifdef NCURSES_VERSION_PATCH
  1423.       printf("%d",NCURSES_VERSION_PATCH);
  1424. #endif
  1425.       break;
  1426.     default:
  1427.       break;
  1428.     }
  1429.       }
  1430.       break;
  1431.       /* ---------------------------------------------------------------*/    
  1432.     default:
  1433.       break;
  1434.     }
  1435.   return 0;
  1436. }
  1437.   
  1438.